<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<% Response.Charset = "gb2312" %>

<%
	dim conn
	dim connstr
	dim db
	db="../db/Currency.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123456789;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	sub closedatabase()
	  conn.close
      set conn=Nothing
    End sub
	
	
	function GetDateLeft(DateStr)
		Dim Fb_Date
		Fb_Date = DateStr
		If InStr(Fb_Date , " ") > 0 Then
			Fb_Date = Split(Fb_Date)
			GetDateLeft=Fb_Date(0)
		Else
			GetDateLeft=Fb_Date
		End If
	End Function
%>   
